# Завантаження покетів та набору даних
library(tidyverse)
TMDB <- read_csv("U:/Master's_work_Boiko/Data_Analysis_movie/tmdb_movies.csv")
TMDB
# Кількість зміних і спостережень
dim(TMDB)
## [1] 10866    21
# Імена зміних
names(TMDB)
##  [1] "id"                   "imdb_id"              "popularity"          
##  [4] "budget"               "revenue"              "original_title"      
##  [7] "cast"                 "homepage"             "director"            
## [10] "tagline"              "keywords"             "overview"            
## [13] "runtime"              "genres"               "production_companies"
## [16] "release_date"         "vote_count"           "vote_average"        
## [19] "release_year"         "budget_adj"           "revenue_adj"
# Видалення нерелевантних даних
TMDB_clean <- TMDB %>% select(-c(imdb_id, homepage, tagline, keywords, overview, production_companies, budget_adj, revenue_adj))
TMDB_clean